home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / PRGMMING / M2PROTOS.ZIP / TIMER.DEF < prev    next >
Encoding:
Modula Definition  |  1991-02-09  |  694 b   |  29 lines
  1. (*%F _fdata *)
  2. (*# call(seg_name => null) *)
  3. (*%E *)
  4. (*# module(implementation=>on) *)
  5. (*# module(init_code=>on) *)
  6. (*# data(seg_name => null) *)
  7. (*# call(o_a_copy => off) *)
  8.  
  9. DEFINITION MODULE Timer;
  10.  
  11. FROM Lib IMPORT Terminate;
  12.  
  13. TYPE 
  14.     ClockType = (ForCommRd, ForPacket, ForTransfer);
  15.  
  16. PROCEDURE StartTimer(Clock: ClockType);
  17. (* Resets specified Clock to zero *)
  18.  
  19. PROCEDURE ElapsedTime(Clock: ClockType): CARDINAL;
  20. (* Reports elapsed time on Clock in seconds *)
  21.  
  22. PROCEDURE ElapsedTicks(Clock: ClockType): CARDINAL;
  23. (* Reports elapsed time on Clock in 60th of a second *)
  24.  
  25.   PROCEDURE Delay(cycles:CARDINAL);
  26. (* Delays action for cycles/1000 secs. *)
  27.  
  28. END Timer.
  29.